home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / POETRY.DIR / 00003_Script_3 < prev    next >
Text File  |  1995-11-15  |  2KB  |  92 lines
  1. on idle
  2.   showHilite
  3.   if the Movie = " POETRY.DIR" then goMovieGo
  4.   pass
  5. end idle
  6.  
  7. on exitFrame
  8.   go to the frame
  9. end
  10.  
  11. on startMovie
  12.   setLocalVariables
  13.   buildPoetryButtons
  14.   buildPoetryList
  15.   newPoem
  16. end startMovie
  17.  
  18. on newPoem
  19.   global gPoemLabel, gPageIndex
  20.   if voidP(gPoemLabel) then put "P11" into gPoemLabel
  21.   if the frameLabel <> gPoemLabel then
  22.     go frame (label(gPoemLabel)-1)
  23.     --puppetTransition 50,1,120,false
  24.     go to marker(1)
  25.   end if
  26.   
  27.   --addToRetrace
  28.   put 0 into gPageIndex
  29.   setUpPage "next"
  30.   updateStage
  31. end newPoem
  32.  
  33. on stopMovie
  34.   unload
  35.   pass
  36. end stopMovie
  37.  
  38. on setLocalVariables
  39.   global gPoemIsPlaying, gRetraceNames
  40.   global gCurrChan,gFirsChan,gLastChan,gPrevHilite
  41.   if voidP(gRetraceNames) then put empty into gRetraceNames
  42.   put false into gPoemIsPlaying
  43.   put 0 into gPrevHilite
  44.   put 2 into gCurrChan
  45.   put 2 into gFirsChan
  46.   put 8 into gLastChan
  47. end setLocalVariables
  48.  
  49. on addToRetracexxx
  50.   global gPoetryList,gRetraceNames,gLastRetraceName
  51.   global gRetraceLabels, gPoemLabel, gPageIndex, it
  52.   put the frameLabel into gPoemLabel
  53.   put getaProp(gPoetryList, gPoemLabel) into it
  54.   put getAt(it,1) into retraceName
  55.   if gLastRetraceName = retraceName then exit
  56.   put the number of lines in gRetraceNames into nr
  57.   put gLastRetraceName into line(nr+1) of gRetraceNames
  58.   put gPoemLabel into line(nr+1) of gRetraceLabels
  59.   if nr = 15 then
  60.     delete line 1 of gRetraceNames
  61.     delete line 1 of gRetraceLabels
  62.     put retraceName into gLastRetraceName
  63.   end if
  64. end addToRetrace
  65.  
  66. on getDescr N
  67.   --  searches the data in the list for the product then returns the description
  68.   --  you could make similar handlers for other values in the property lists.
  69.   global Data
  70.   if not listP(Data) then set Data = value(field "data")
  71.   repeat with P in Data
  72.     if the Prod of P = N then return ( the Desc of P )
  73.   end repeat
  74. end
  75.  
  76. on delay howLong
  77.   startTimer
  78.   repeat while the timer < howLong
  79.   end repeat
  80. end delay
  81.  
  82. on retraceLocal
  83.   stopPoem
  84.   retrace
  85. end
  86.  
  87. on contentsLocal
  88.   stopPoem
  89.   doContents
  90.   --  go movie "TOC.DIR"
  91.   --  abort
  92. end contents